home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / comunic / zcomm.zip / DIAL.T < prev    next >
Text File  |  1992-09-08  |  6KB  |  100 lines
  1.  
  2.  
  3.                                Dialing Menu Example
  4.                                       DIAL.T
  5.                                    Version 3.0
  6.  
  7.                           Michael Ash -- CIS: 71350,3327
  8.  
  9.        To activate this Dialing Menu Example from PHOMAST.T just hit Shift-F7
  10.        as listed on the F9 help menu...
  11.  
  12.        This is just an example of how a menu might be setup...  Put your own
  13.        names and numbers into DIAL.T by using an editor to make it specific
  14.        for your area.
  15.        
  16.        Notice the syntax of the decision statement.  In response to the accept
  17.        command the variable 's0' gets a letter.  The variable is evaluated 
  18.        using:  
  19.                         if is0,a cls; call -100 bnf; goto done
  20.                         
  21.        This line above says, if s0=a, clear screen, then call script label
  22.        bnf (upto 100 times if busy).  When the call is complete, goto done 
  23.        and that will cause the menu to reappear.  You could just have a number
  24.        in place of 'call -100 bnf' and it will call the number; and then return 
  25.        to the menu when the call is completed... 
  26.  
  27.                        Actual on-screen Menu Generated below...
  28. start:
  29.   cls
  30.   echo "\n                 >>>   Internal Dialing Menu <<<                                "
  31.   echo "                                                                                "
  32.   echo "   Enter the Letter of the system you wish to call as listed below:             "
  33.   echo "                                                                                "
  34.   echo "        A. Back & Forth Support BBS     N. Olde Guard BBS                       "
  35.   echo "        B. CompuServe                   O. PC Magazine                          "
  36.   echo "        C. APCO (Public BBS)            P.                                      "
  37.   echo "        D. APCO (Members BBS)           Q.                                      "
  38.   echo "        E.                              R.                                      "
  39.   echo "        F.                              S.                                      "
  40.   echo "        G.                              T.                                      "
  41.   echo "        H.                              U.                                      "
  42.   echo "        I.                              V.                                      "
  43.   echo "        J.                              W.                                      "
  44.   echo "        K.                              X.                                      "
  45.   echo "        L.                              Y.                                      "
  46.   echo "        M.                              Z.                                      "
  47.   echo "        ---------------------------------------------------------               "
  48.   echo "        1. Return to ZComm menu         2. Hang-up phone and re-display         "
  49.   echo "        3. Edit this DIALING Menu       4. Return to DOS...                     "
  50.   echo "\n"
  51.  
  52. again:
  53.   acceptl1 s0 "Your Choice: "              : Ask the question, then evaluate...
  54.                                            : Force lower case and one char.
  55.         : Below would be labels in your phones script of different BB Systems
  56.         : You must first generate these labels in your phones script to either
  57.         : dial the number or actually provide a autolog onto the host system.
  58.  
  59.         if is0,a cls; call -100 bnf; goto done
  60.         if is0,b cls; call -100 cis; goto done
  61.         if is0,c cls; call -100 ap; goto done
  62.         if is0,d cls; call -100 apmem; goto done
  63.         if is0,e goto error                             :Not defined...
  64.         if is0,f goto error                             :Not defined...
  65.         if is0,g goto error                             :Not defined...
  66.         if is0,h goto error                             :Not defined...
  67.         if is0,i goto error                             :Not defined...
  68.         if is0,j goto error                             :Not defined...
  69.         if is0,k goto error                             :Not defined...
  70.         if is0,l goto error                             :Not defined...
  71.         if is0,m goto error                             :Not defined...
  72.         if is0,n cls; call -100 old; goto done
  73.         if is0,o cls; sp 2400   1-212-503-5255 ena -E;t -8g ; goto done
  74.         if is0,p goto error                             :Not defined...
  75.         if is0,q goto error                             :Not defined...
  76.         if is0,r goto error                             :Not defined...
  77.         if is0,s goto error                             :Not defined...
  78.         if is0,t goto error                             :Not defined...
  79.         if is0,u goto error                             :Not defined...
  80.         if is0,v goto error                             :Not defined...
  81.         if is0,w goto error                             :Not defined...
  82.         if is0,x goto error                             :Not defined...
  83.         if is0,y goto error                             :Not defined...
  84.         if is0,z goto error                             :Not defined...
  85.  
  86.         if is0,1 gosub menu; fail                       : Return to ZComm
  87.         if is0,2 o; goback start                        : Hang up and re-menu
  88.         if is0,3 o; !%edit %home\dial.t                  : Hang up, edit DIAL.T
  89.         if is0,4 off                                    : Return to DOS
  90.         goback start
  91.  
  92. error:                       : if not found... ask again!
  93.         lput "\t\t  Not currently active... Pick again"; sleep 15
  94.         goback start
  95.  
  96. done:
  97.         gosub start.%home/dial.t       :After call return to dial menu
  98.  
  99. :: ------------------------------------------------------------------ ::
  100.